home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tegl6b.zip / INTROPAK.EXE / lha / BUTTON3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-17  |  944b  |  41 lines
  1. {-- button2.pas}
  2. {$F+}
  3.  
  4. USES moreicon,teglunit,teglmain;
  5.  
  6.  
  7. function Disk35event(frame: ImageStkPtr; mouse: MsClickPtr): Word;
  8.   BEGIN
  9.     {-- if true then the button has been released }
  10.     if VisualSquareButtonPress(frame,mouse) then
  11.       begin
  12.         {-- this will pop the button back up }
  13.         ReleaseSquareButton(frame,mouse);
  14.       end;
  15.   END;
  16.  
  17. function Diskevent(frame: ImageStkPtr; mouse: MsClickPtr): Word;
  18.   BEGIN
  19.     {-- if true then the button has been released }
  20.     if VisualSquareButtonPress(frame,mouse) then
  21.       begin
  22.         {-- this will pop the button back up }
  23.         ReleaseSquareButton(frame,mouse);
  24.       end;
  25.   END;
  26.  
  27.  
  28.  
  29. BEGIN
  30.   easytegl;
  31.   easyout;
  32.   PushImage(0,09,39,49);
  33.   DefineSquareButtonClick(stackptr,0,0,39,39,5,5,@ImageDisk,diskevent);
  34.   PushImage(0,49,39,89);
  35.   DefineSquareButtonClick(stackptr,0,0,39,39,5,5,@ImageDisk35,disk35event);
  36.  
  37.   TeglSupervisor;
  38. END.
  39.  
  40.  
  41.